home *** CD-ROM | disk | FTP | other *** search
/ Visual Intercept / Visual Intercept.iso / sheriff.z / isprojfn.bas < prev    next >
BASIC Source File  |  1996-08-26  |  6KB  |  198 lines
  1. Attribute VB_Name = "IIProject"
  2. '----------------------------------------------------------------------------
  3. '   isprojfn.bas is a member of the Visual Intercept Visual Basic API.
  4. '   Copyright (c) 1996 Elsinore Technologies, Inc. All rights reserved.
  5. '
  6. '   This software is protected by copyright law. Unauthorized reproduction
  7. '   or distribution of this program, or any portion of it, may result in
  8. '   severe civil or criminal penalties. If you have any questions about
  9. '   your redistribution rights, please contact Elsinore Technologies, Inc.
  10. '
  11. '   Creator: Albert J. Lin (AJL)
  12. '   History: Created 09/17/95
  13. '----------------------------------------------------------------------------
  14.  
  15.  
  16. '----------------------------------------------------------------------------
  17. ' Visual Intercept Project Declarations:
  18. '----------------------------------------------------------------------------
  19. Public Type VIProject
  20.     name                  As String
  21.     version               As String
  22.     description           As String
  23.     leadID                As String
  24.     account               As String
  25. End Type
  26.  
  27. Public Type IEProject
  28.     lpName                  As String
  29.     lpVersion               As String
  30.     lpDescription           As String
  31.     lpLeadID                As String
  32.     lpAccount               As String
  33.     
  34.     lnName                  As Integer
  35.     lnVersion               As Integer
  36.     lnDescription           As Integer
  37.     lnLeadID                As Integer
  38.     lnAccount               As Integer
  39. End Type
  40.  
  41. Public Declare Function IIInsertProject Lib "isapi.dll" (pProject As IEProject) As Long
  42. Public Declare Function IIDeleteProject Lib "isapi.dll" (pProject As IEProject, ByVal clause As String) As Long
  43. Public Declare Function IIModifyProject Lib "isapi.dll" (pProject As IEProject, ByVal clause As String) As Long
  44. Public Declare Function IIFetchProject Lib "isapi.dll" (pProject As IEProject, ByVal clause As String) As Long
  45. Public Declare Function IIFetchProjects Lib "isapi.dll" (ByRef pnTotal As Long, ByVal clause As String) As Long
  46. Public Declare Function IIGetProject Lib "isapi.dll" (pProject As IEProject, ByVal nIndex As Long) As Long
  47.  
  48. Public Function VBIIPrepareProject(project As IEProject, userProject As VIProject)
  49.    
  50.     project.lpName = userProject.name
  51.     project.lpVersion = userProject.version
  52.     project.lpDescription = userProject.description
  53.     project.lpLeadID = userProject.leadID
  54.     project.lpAccount = userProject.account
  55.         
  56.     project.lnName = Len(userProject.name)
  57.     project.lnVersion = Len(userProject.version)
  58.     project.lnDescription = Len(userProject.description)
  59.     project.lnLeadID = Len(userProject.leadID)
  60.     project.lnAccount = Len(userProject.account)
  61.         
  62. End Function
  63.  
  64. Public Function VBIIInitProject(project As IEProject)
  65.     
  66.     project.lnName = lnIIProjectName
  67.     project.lnVersion = lnIIVersionName
  68.     project.lnDescription = lnIIDescription
  69.     project.lnLeadID = lnIIUserID
  70.     project.lnAccount = lnIIAccountCode
  71.     
  72.     project.lpName = String(project.lnName, 0)
  73.     project.lpVersion = String(project.lnVersion, 0)
  74.     project.lpDescription = String(project.lnDescription, 0)
  75.     project.lpLeadID = String(project.lnLeadID, 0)
  76.     project.lpAccount = String(project.lnAccount, 0)
  77.     
  78. End Function
  79. Public Function VBIIPrintProject(project As IEProject)
  80.     
  81.     MsgBox ("project.lpName = " + project.lpName)
  82.     MsgBox ("project.lpVersion = " + project.lpVersion)
  83.     MsgBox ("project.lpDescription = " + project.lpDescription)
  84.     MsgBox ("project.lpLeadID = " + project.lpLeadID)
  85.     MsgBox ("project.lpAccount = " + project.lpAccount)
  86.     
  87.     MsgBox ("project.lnName = " + Str$(project.lnName))
  88.     MsgBox ("project.lnVersion = " + Str$(project.lnVersion))
  89.     MsgBox ("project.lnDescription = " + Str$(project.lnDescription))
  90.     MsgBox ("project.lnLeadID = " + Str$(project.lnLeadID))
  91.     MsgBox ("project.lnAccount = " + Str$(project.lnAccount))
  92.         
  93. End Function
  94.  
  95.  
  96.  
  97. Public Function VBIIConvertProject(project As IEProject, userProject As VIProject)
  98.     
  99.     userProject.name = project.lpName
  100.     userProject.version = project.lpVersion
  101.     userProject.description = project.lpDescription
  102.     userProject.leadID = project.lpLeadID
  103.     userProject.account = project.lpAccount
  104.      
  105. End Function
  106.  
  107.  
  108.  
  109. Public Function VBIIInsertProject(userProject As VIProject) As Long
  110.     Dim project As IEProject
  111.     Dim err As Long
  112.     
  113.     Call VBIIInitProject(project)
  114.     
  115.     Call VBIIPrepareProject(project, userProject)
  116.     
  117.     err = IIInsertProject(project)
  118.     
  119.     VBIIInsertProject = err
  120.     
  121. End Function
  122.  
  123.  
  124. Public Function VBIIModifyProject(userProject As VIProject, ByRef clause As String) As Long
  125.     Dim project As IEProject
  126.     Dim err As Long
  127.     
  128.     Call VBIIInitProject(project)
  129.     
  130.     Call VBIIPrepareProject(project, userProject)
  131.       
  132.     err = IIModifyProject(project, clause)
  133.  
  134.     VBIIModifyProject = err
  135.     
  136. End Function
  137.  
  138.  
  139. Public Function VBIIFetchProject(userProject As VIProject, ByRef clause As String) As Long
  140.     Dim project As IEProject
  141.     Dim err As Long
  142.     
  143.     Call VBIIInitProject(project)
  144.     
  145.     Call VBIIPrepareProject(project, userProject)
  146.     
  147.     err = IIFetchProject(project, clause)
  148.     
  149.     If err = 0 Then
  150.         Call VBIIConvertProject(project, userProject)
  151.     End If
  152.  
  153.     VBIIFetchProject = err
  154.     
  155. End Function
  156.  
  157.  
  158. Public Function VBIIDeleteProject(userProject As VIProject, ByRef clause As String) As Long
  159.     Dim project As IEProject
  160.     Dim err As Long
  161.     
  162.     Call VBIIInitProject(project)
  163.     
  164.     Call VBIIPrepareProject(project, userProject)
  165.     
  166.     err = IIDeleteProject(project, clause)
  167.     
  168.     VBIIDeleteProject = err
  169.     
  170. End Function
  171.  
  172. Public Function VBIIFetchProjects(ByRef rnTotal As Long, ByRef clause As String) As Long
  173.     Dim err As Long
  174.         
  175.     err = IIFetchProjects(rnTotal, clause)
  176.  
  177.     VBIIFetchProjects = err
  178.     
  179. End Function
  180.  
  181.  
  182. Public Function VBIIGetProject(userProject As VIProject, ByVal nIndex As Long) As Long
  183.     Dim project As IEProject
  184.     Dim err As Long
  185.     
  186.     Call VBIIInitProject(project)
  187.     
  188.     err = IIGetProject(project, nIndex)
  189.     
  190.     If err = 0 Then
  191.         Call VBIIConvertProject(project, userProject)
  192.     End If
  193.     
  194.     VBIIGetProject = err
  195.     
  196. End Function
  197.  
  198.